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-TITLE FORSREAD IL - FORTRAN READ internal List-directed 
IDENT /1-001/ File: FORREADIF.MAR Edit: $BL1001 
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ALL RIGHTS RESERVED. 
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FACILITY: FORTRAN Support Library - user callable 

ABSTRACT: 
This module contains the entry point for the FORTRAN 
READ internal List-directed 1/0 statement. It is simply 
a call to FORS$IO_BEG with bits in RO which describe the 
parameter List. FORS$I0_BEG interprets the parameters. 


MAINTENANCE NOTE: é 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


. TRANSFER PORSREAD_IF 

- MASK FORS$$10_BEG 

BRW FORSREAD_IF +2 

This puts the correct mask in entry vector, vont is FORSSIO_BEG entry mask. 


: Furthermore this module must only use RO an 
; since any other register might not be in the entry mask for FOR$$I0_BEG. 


; ENVIRONMENT: User access mode; mixture of AST level or not 
; AUTHOR: Steven B. Lionel, CREATION DATE: 21-April-1983 
; Edit History: 

; 1-001 - Original. SBL 21-April-1983 


BIE WN =O ODA UNE WIN 9 OD NAME WIN SO OD NOAU EWA 0 OONOAU EWN OOO NOUS Wh 


PUPP BB EE EB BE EAA AANA AAAI ID PONINONPOPININONPYD 2 OS OO 


SOOOOCOCOCOOCCOOCOCOC COCO OCOOC OOOO OOOOOOOOOOOOOOOO 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


an 


S Macro V Page § 
DECLARATIONS 4 10:59:07 CFORRTL.SRCJFORREADIL.MAR;1 (2) 


I PRE SO ) 

M 2 
Roecaa'e = FORTRAN READ internal List-directed iF ams hs 9 3:56:54 VAX/VM cro V04-00 a 
1-001 6-SEP-19 E 


| 
| 
| 


09 -SBTTL DECLARATIONS 
0 3 
0 3; INCLUDE FILES: 

3 
00 SFORPAR 3 Define inter-module FORTRAN symbols 
38 SISBDEF 3; Define statement type symbols 
00 ; | 
8 ; EXTERNAL SYMBOLS: 


-DSABL GBL ; Declare all external symbols 
-EXTRN FORSSIO_BEG 3 common 1/0 statement processing 


3¢ 

3; The a references are to make sure the necessary UDF and REC 
; modules are loaded. These are the routines which are called through 
3; the dispatch tables in FORSSDISPAT. 


FORSSUDF _RL1, FORSSUDF RLO 


.EXTRN FORSSUDF_RLO 
“EXTRN FORSSREC"RILO, FORSSREC_RIL1, FORSSREC_RILO 


| 
| 
MACROS: | 
NONE | 
| 


PSECT DECLARATIONS: 
0000 -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,.RD,NOWRT LONG 


: EQUATED SYMBOLS: 


OWN STORAGE: 
NONE 
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FORSREAD_IL = FORTRAN READ internal List-directed 15-SEP-1984 23:56:54 VAX/VMS Macro V04-00 P 
1-001 FORSREAD_IL = READ internal ilenedirecte 6-SEP-1984 46:2 :07 FORRTL.SRCJFORREADIL.MAR; 1 et 3) 
08 13 .SBTTL FORSREAD_IL = READ internal List-directed 
104 ;++ 
009 196 3 FUNCTIONAL DESCRIPTION: 
6 1 5 : Initialize the FORTRAN 1/0 system to perform 
444 138 ; a READ internal List-directed 1/0 statement. 
9900 110 CALLING SEQUENCE: | 
38 11 i CALL FORSREAD_IL (user_vbl.rt.dx C, err_adr.j.r C, end_adr.j.rJ]) | 
009 114 : INPUT PARAMETERS: 
000 115; 
B08 138 ; ser_vbl.rt.dx User's string variable 
00 117 ; Lercmadr.J.i optional ERR= address 
4 118 3 end_adr.j.r optional END= address | 
0000 120 : IMPLICIT INPUTS: 
0000 121; 
44 i § ; NONE except those used by FORS$IO_BEG. 
0000 134 : OUTPUT PARAMETERS: 
0000 125 ; 
0000 16 3 NONE 
0000 127 ; 
0000 128 ; IMPLICIT OUTPUTS: 
0000 19 3 
4464 139 ; NONE except those left by FOR$$10_BEG. | 
0000 138 + COMPLETION CODES: | 
0000 133; | 
0000 134; NONE 
0000 135 ; 
0000 136 : SIDE EFFECTS: 
0000 137; 
0000 138 ; NONE except those of FORS$I0_BEG. 
0000 139; | 
0000 140 ;-- 
0000 141 
* 0000 146 FORSREAD_IL:: MASK FORS$IO_BEG 
50 16 9A 4h 14 MOVZBL #ISB$K_ST_TY_RIC, RO 3 Statement type | 
00000002'GF 17 44 13 JMP G*FORS$$10_BEG+2 ; branch past cail mask | 
$008 146 
0008 147 END 
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FORSREAD_IL 15-SEP-1984 23:56:54 
Symbol table 5u Eb 1882 $5:25:69 t 
FORS$1O_ BEG teeeenee =X 0 
FORSSREC_RILO eerenere =X 3 
FORSSREC_RIL1 eeeeenee =X 
FORSSREC_RILO teeeeree =X 00 
FORSSUDF _RLO ereeeeee 8 6X 8 
FORSSUDF _RL1 eeeeeere xX 0 
FORSSUDF —RLO eeeerere § X 00 
FORSREAD_IL 00000000 RG 01 
ISBSK_ST_TY_RIL = 00000016 

teow ness aoa s eman t 

H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 < 0.) ( 0.) NOPIC USR CON ABS 
_FORSCODE 00000008 (¢ 11.) O1¢ 1.) PIC uUSR CON~ REL 

tower anannae sre aceceaae aa ae ee + 
H Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization — 30 B8 O00 08 00:00:00.66 
Command processing \¢l 00:00:00.6 00:00:03.24 
Pass 1 133 00:00:01.26 00:00:04.64 
Symbol table sort 0 00:00:00.18 00:00:00.49 
Pass 2 51 00:00:00.46 00:00:01.91 
Symbol table output 2 ab a Be BET 00:00:00.02 
Psect synopsis output 3 00:00:00.0 00:00:00.05 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 342 00:00:02.66 00:00:11.02 


The working set Limit was 900 pages. 


6398 bytes (13 pages) of virtual memory were used to buffer the intermediate code 


There were 20 pages of symbol table 


space allocated to hold 187 non-local and 0 Local symbols. 


147 source Lines were read in Pass 1, prodyc ing 8 object records in Pass 2. 
ma 


9 pages of virtual memory were used to define 


Macro Library name 

-$255$0UA28: CFORRTL.OBJIJFORRTL.MLB;1 
$255$DUA28: CSYSLIBISTARLET.MLB; 
TOTALS (all Libraries) 


cros. 


ter ee nme eno ee mene 


Macro Library statistics ! 


' 
teeer ere em enn enn eens 


Macros defined 


183 GETS were required to define 2 macros. 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORREADIL/OBJ=OBJ$:FORREADIL MSRC$:FORREADIL/UPDATE=(ENH$:FORREADIL)*LI 
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NOWRT NOVEC BYTE 


NOWRT NOVEC LONG 
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